home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / comm / term / AmiTEL310.lha / rexx / Rtel.amtl < prev    next >
Text File  |  1996-10-20  |  1KB  |  53 lines
  1. /*-------------------------------------*/
  2. /* Rtel.rexx v1.2        (c) 1996 Ldfa */
  3. /*                                     */
  4. /* Script de connection sur le serveur */
  5. /*     Rtel en T2 pour AmiTEL 3.0      */
  6. /*                                     */
  7. /*-------------------------------------*/
  8.  
  9. Envoi        = '13 41'x
  10. Retour        = '13 42'x
  11. Repetition    = '13 43'x
  12. Guide        = '13 44'x
  13. Annulation    = '13 45'x
  14. Sommaire    = '13 46'x
  15. Correction    = '13 47'x
  16. Suite        = '13 48'x
  17.  
  18. Login  = "Mon pseudo"            /* Inscrire ici votre pseudonyme */
  19. Passwd = "Mon mot de passe"        /* et votre mot de passe         */
  20.  
  21. address AMITEL_REXX            /* Nom du Port ARexx d'AmiTEL */
  22.  
  23. options results
  24.  
  25. TIMEOUT 60                /* Temps d'attente maximum */
  26.  
  27. WAIT "service:"                /* Attend 'service:' */
  28. if RC ~= 0 then                /* Si temps d'attente dépassé */
  29.    do
  30.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  31.       exit                    /* Fin du programme */
  32.    end
  33.  
  34. SEND "RTEL2" || Envoi            /* Envoi 'RTEL1' */
  35.  
  36. WAIT "PSEUDONYME"            /* Attend 'PSEUDONYME' */
  37. if RC ~= 0 then                /* Si temps d'attente dépassé */
  38.    do
  39.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  40.       exit                    /* Fin du programme */
  41.    end
  42.  
  43. SEND Login || Envoi            /* Envoi pseudonyme */
  44.  
  45. WAIT "CODE"                /* Attend 'CODE' */
  46. if RC ~= 0 then                /* Si temps d'attente dépassé */
  47.    do
  48.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  49.       exit                    /* Fin du programme */
  50.    end
  51.  
  52. SEND Passwd || Envoi            /* Envoi mot de passe */
  53.